home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
grabtext.zip
/
BLOADER.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-05-20
|
185b
|
10 lines
1 DEF SEG=&HB800
2 KEY OFF
3 CLS
4 FILES "*.BSV"
5 INPUT"Enter Name of Image To Load. <Blank Ends> : ",A$
10 IF A$="" THEN SYSTEM
30 BLOAD A$,0
40 A$=INPUT$(1)
50 GOTO 3